home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / LEAR31A.DIR / 00022_Script_textroll < prev    next >
Text File  |  1999-04-26  |  950b  |  46 lines
  1. property linkedSprite, linkedSprName,linkedSprRollName, mySprite, neuName
  2.  
  3.  
  4.  
  5.  
  6. on new me
  7.   set mySprite = the SpriteNum of me
  8.   set myMember = the member of sprite mySprite
  9.   set neuName = the name of member myMember
  10.   set linkedSprName = "invis_"&neuName
  11.   set linkedSprRollName = neuName&"-rol"
  12.   set linkedSprite = getSpriteNumFromMemberName (linkedSprName)
  13.   set the stretch of sprite linkedSprite = FALSE
  14. end
  15.  
  16.  
  17.  
  18.  
  19. on mouseEnter me
  20.   set the ink of sprite mySprite = 39
  21.   set the member of sprite linkedSprite = member linkedSprRollName
  22.   puppetsound 3,"subroll"
  23.   
  24.   
  25.   
  26. end
  27.  
  28. on mouseLeave me
  29.   set the ink of sprite mySprite = 37
  30.   set the member of sprite linkedSprite = member linkedSprName
  31.   
  32.   
  33.   
  34. end
  35.  
  36. on mouseUp me
  37. --  if neuName contains "aircraft" then
  38. --    go to "trans2"
  39. --  else if neuName contains "bomb" then
  40. --    go to "bombtrans"
  41. --  end if
  42.   puppetsound 3, "mouse5"
  43.   cursor -1
  44. end
  45.  
  46.